PC Home 49/PC_Home_Issue_49.iso/lldemo/lldemo.shr/ROSETTA.EXE/ROSETTA.DXR/00566_initialization scripts.ls

Text File | 1996-06-24 | 1.2 KB | 51 lines

on startMovie
  set the romanLingo to 1
  initBroadcast()
end

on initGlobals
  global gBlindfold, gTest, gTimer, gScore, gTimerTicks, gInPlay, gCurQuad, gNexQuad, gScreenMode, gShowText, gNewChap, gOldTimer, gMenu, gRecording, gDictMode, gType, gSoundObj, gPassword
  set gDictMode to #CLICKSPEAKER
  set gRecording to 0
  set gScore to 1
  set gBlindfold to 0
  set gTimer to 0
  set gTest to 0
  set gMenu to 0
  set gInPlay to 0
  set gShowText to 0
  set gOldTimer to 0
  set gPassword to EMPTY
  put " " into field "password"
  set gCurQuad to 1
  set gNexQuad to 2
  initScore()
  set gNewChap to EMPTY
  randomize()
  set gTimerTicks to 5 * 60
  set the text of cast "TimerSecs" to "5"
  set gScreenMode to [:]
  if gType = #MAC then
    set gSoundObj to TRSSound(mnew)
  end if
end

on readConfig
  global gSMSPath, gPrintErrors, gLogErrors, gType
  set gSMSPath to EMPTY
  set gPrintErrors to 1
  set gLogErrors to 1
  set theText to readTextFile(the pathName & "rosetta.cfg")
  if word 1 of theText <> "#Error" then
    if gType = #PC then
      set i to 2
    else
      set i to 1
    end if
    set gSMSPath to item i of theText
  else
    return 1
  end if
  return 0
end